home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / amcaf150final.lha / AMCAF_Examples / Fire.AMOS / Fire.amosSourceCode
AMOS Source Code  |  1999-03-01  |  2KB  |  63 lines
  1. Hide 
  2. WX=128 : WY=128
  3. Screen Open 0,320,256,64,0
  4. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  5.  Extension_8_1722 0,0 To 15,$F00 : Extension_8_1722 15,$F00 To 28,$FF0 : Extension_8_1722 28,$FF0 To 31,$FFF
  6. 'Bank Copy 8 To 9
  7. Reserve As Work 9,WX*WY+WX*4
  8. Reserve As Work 10,WX*WY+WX*4
  9. NWX=256 : NWY=200
  10. Reserve As Work 11,NWX*NWY
  11. MAD=WX*WY-1
  12. Wait Vbl 
  13. Limit Mouse 
  14. Timer=1
  15. Repeat 
  16. '  Wait Vbl  
  17.   ST1=Start(9)+WX : ST2=Start(10)+WX
  18.   XM= Extension_8_1632(X Screen(X Mouse),4 To WX-5) : YM= Extension_8_1632(Y Screen(Y Mouse),4 To WY-5)
  19.   Copy ST1,ST1+MAD+1 To ST2
  20.    Extension_8_178E ST2,WX,WY-1 To ST1,0
  21.   ST=ST1+XM+YM*WX
  22.   Poke ST,31
  23.   Poke ST-1,224 : Poke ST+1,224
  24.   Poke ST-WX,224 : Poke ST+WX,224
  25.   Poke ST-1-WX,192 : Poke ST+1-WX,192
  26.   Poke ST-1+WX,192 : Poke ST+1+WX,192
  27. '  For A=0 To 99 
  28. '    Poke ST1+(WY-(Rnd(2)+1))*WX+Rnd(WX-1),255 
  29. '    Poke ST1+WX*Rnd(WY-1)+Rnd(WX-1),255 
  30. '  Next  
  31.   ST=ST1+WX*(WY-1)
  32.   Fill ST To ST+WX,0
  33.    Extension_8_1776 ST1,WX,WY To ST2,3
  34.    Extension_8_175A ST2,WX,WY-2 To 0,0,8
  35.   Inc FRAMES
  36.   Pen 15 : Home : Print(FRAMES*50.0)/Timer
  37. Until Mouse Key
  38. While Mouse Key : Wend 
  39. Repeat 
  40.   Wait Vbl 
  41.   ST1=Start(9)+WX : ST2=Start(10)+WX
  42.   XM= Extension_8_1632(X Screen(X Mouse),4 To WX-5) : YM= Extension_8_1632(Y Screen(Y Mouse),4 To WY-5)
  43.   Copy ST1,ST1+MAD+1 To ST2
  44.    Extension_8_178E ST2+WX,WX,WY-1 To ST1,1
  45.   ST=ST1+XM+YM*WX
  46.   Poke ST,255
  47.   Poke ST-1,224 : Poke ST+1,224
  48.   Poke ST-WX,224 : Poke ST+WX,224
  49.   Poke ST-1-WX,192 : Poke ST+1-WX,192
  50.   Poke ST-1+WX,192 : Poke ST+1+WX,192
  51.   For A=0 To 99
  52.     Poke ST1+(WY-(Rnd(2)+1))*WX+Rnd(WX-1),255
  53.   Next 
  54.   ST=ST1+WX*(WY-1)
  55.   Fill ST To ST+WX,0
  56.    Extension_8_1776 ST1,WX,WY To ST2,3
  57.   NWX=X Screen(X Mouse)
  58.   NWY=Y Screen(Y Mouse)
  59.  
  60.    Extension_8_175A ST2,WX,WY-3 To 0,0,0
  61. '  C2p Zoom Start(11),NWX,NWY,0,0 To Vclip(X Screen(X Mouse),1 To NWX),Vclip(Y Screen(Y Mouse),1 To NWY),0 
  62. '  C2p Convert Start(11),NWX,NWY-3 To 0,0,0
  63. Until Mouse Key